home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 April: Mac OS SDK / Dev.CD Apr 00 SDK1.toast / Development Kits / Mac OS / ColorSync 3.0 Mac SDK / Interfaces / CMCalibrator.p < prev    next >
Encoding:
Text File  |  1999-10-28  |  6.2 KB  |  219 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        CMCalibrator.p
  3.  
  4.      Contains:    ColorSync Calibration API
  5.  
  6.      Version:    Technology:    ColorSync 2.5
  7.                  Release:    ColorSync 3.0 SDK for use with Universal Interfaces 3.2
  8.  
  9.      Copyright:    © 1998-1999 by Apple Computer, Inc., all rights reserved.
  10.  
  11.      Bugs?:        For bug reports, consult the following page on
  12.                  the World Wide Web:
  13.  
  14.                      http://developer.apple.com/bugreporter/
  15.  
  16. }
  17. {$IFC UNDEFINED UsingIncludes}
  18. {$SETC UsingIncludes := 0}
  19. {$ENDC}
  20.  
  21. {$IFC NOT UsingIncludes}
  22.  UNIT CMCalibrator;
  23.  INTERFACE
  24. {$ENDC}
  25.  
  26. {$IFC UNDEFINED __CMCALIBRATOR__}
  27. {$SETC __CMCALIBRATOR__ := 1}
  28.  
  29. {$I+}
  30. {$SETC CMCalibratorIncludes := UsingIncludes}
  31. {$SETC UsingIncludes := 1}
  32.  
  33. {$IFC UNDEFINED __CMAPPLICATION__}
  34. {$I CMApplication.p}
  35. {$ENDC}
  36. {$IFC UNDEFINED __DISPLAYS__}
  37. {$I Displays.p}
  38. {$ENDC}
  39. {$IFC UNDEFINED __ERRORS__}
  40. {$I Errors.p}
  41. {$ENDC}
  42.  
  43.  
  44. {$PUSH}
  45. {$ALIGN MAC68K}
  46. {$LibExport+}
  47.  
  48.  
  49. TYPE
  50. {$IFC TYPED_FUNCTION_POINTERS}
  51.     CalibrateEventProcPtr = PROCEDURE(VAR event: EventRecord);
  52. {$ELSEC}
  53.     CalibrateEventProcPtr = ProcPtr;
  54. {$ENDC}
  55.  
  56.     CalibrateEventUPP = UniversalProcPtr;
  57.  
  58. {  Interface for new ColorSync monitor calibrators (ColorSync 2.6 and greater)  }
  59.  
  60.  
  61. CONST
  62.     kCalibratorNamePrefix        = 'cali';
  63.  
  64.  
  65. TYPE
  66.     CalibratorInfoPtr = ^CalibratorInfo;
  67.     CalibratorInfo = RECORD
  68.         dataSize:                UInt32;                                    {  Size of this structure - compatibility  }
  69.         displayID:                AVIDType;                                {  Contains an hDC on Win32  }
  70.         profileLocationSize:    UInt32;                                    {  Max size for returned profile location  }
  71.         profileLocationPtr:        CMProfileLocationPtr;                    {  For returning the profile  }
  72.         eventProc:                CalibrateEventUPP;                        {  Ignored on Win32  }
  73.         isGood:                    BOOLEAN;                                {  true or false  }
  74.     END;
  75.  
  76. {$IFC TYPED_FUNCTION_POINTERS}
  77.     CanCalibrateProcPtr = FUNCTION(displayID: AVIDType; VAR errMessage: Str255): BOOLEAN;
  78. {$ELSEC}
  79.     CanCalibrateProcPtr = ProcPtr;
  80. {$ENDC}
  81.  
  82. {$IFC TYPED_FUNCTION_POINTERS}
  83.     CalibrateProcPtr = FUNCTION(VAR theInfo: CalibratorInfo): OSErr;
  84. {$ELSEC}
  85.     CalibrateProcPtr = ProcPtr;
  86. {$ENDC}
  87.  
  88.     CanCalibrateUPP = UniversalProcPtr;
  89.     CalibrateUPP = UniversalProcPtr;
  90.  
  91. CONST
  92.     uppCalibrateEventProcInfo = $000000C0;
  93.     uppCanCalibrateProcInfo = $000003D0;
  94.     uppCalibrateProcInfo = $000000E0;
  95.  
  96. FUNCTION NewCalibrateEventUPP(userRoutine: CalibrateEventProcPtr): CalibrateEventUPP; { old name was NewCalibrateEventProc }
  97.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  98.     INLINE $2E9F;
  99.     {$ENDC}
  100.  
  101. FUNCTION NewCanCalibrateUPP(userRoutine: CanCalibrateProcPtr): CanCalibrateUPP; { old name was NewCanCalibrateProc }
  102.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  103.     INLINE $2E9F;
  104.     {$ENDC}
  105.  
  106. FUNCTION NewCalibrateUPP(userRoutine: CalibrateProcPtr): CalibrateUPP; { old name was NewCalibrateProc }
  107.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  108.     INLINE $2E9F;
  109.     {$ENDC}
  110.  
  111. PROCEDURE DisposeCalibrateEventUPP(userUPP: CalibrateEventUPP);
  112.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  113.     INLINE $594F;
  114.     {$ENDC}
  115.  
  116. PROCEDURE DisposeCanCalibrateUPP(userUPP: CanCalibrateUPP);
  117.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  118.     INLINE $594F;
  119.     {$ENDC}
  120.  
  121. PROCEDURE DisposeCalibrateUPP(userUPP: CalibrateUPP);
  122.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  123.     INLINE $594F;
  124.     {$ENDC}
  125.  
  126. PROCEDURE InvokeCalibrateEventUPP(VAR event: EventRecord; userRoutine: CalibrateEventUPP); { old name was CallCalibrateEventProc }
  127.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  128.     INLINE $205F, $4E90;
  129.     {$ENDC}
  130.  
  131. FUNCTION InvokeCanCalibrateUPP(displayID: AVIDType; VAR errMessage: Str255; userRoutine: CanCalibrateUPP): BOOLEAN; { old name was CallCanCalibrateProc }
  132.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  133.     INLINE $205F, $4E90;
  134.     {$ENDC}
  135.  
  136. FUNCTION InvokeCalibrateUPP(VAR theInfo: CalibratorInfo; userRoutine: CalibrateUPP): OSErr; { old name was CallCalibrateProc }
  137.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  138.     INLINE $205F, $4E90;
  139.     {$ENDC}
  140. {$IFC OLDROUTINENAMES }
  141. {  Interface for original ColorSync monitor calibrators (ColorSync 2.5.x)  }
  142.  
  143. CONST
  144.     kOldCalibratorNamePrefix    = 'Cali';
  145.  
  146.  
  147. TYPE
  148.     OldCalibratorInfoPtr = ^OldCalibratorInfo;
  149.     OldCalibratorInfo = RECORD
  150.         displayID:                AVIDType;                                {  Contains an hDC on Win32  }
  151.         profileLocation:        CMProfileLocation;
  152.         eventProc:                CalibrateEventUPP;                        {  Ignored on Win32  }
  153.         reserved:                UInt32;                                    {  Unused  }
  154.         flags:                    UInt32;                                    {  Unused  }
  155.         isGood:                    BOOLEAN;                                {  true or false  }
  156.         byteFiller:                SInt8;                                    {  Unused  }
  157.     END;
  158.  
  159. {$IFC TYPED_FUNCTION_POINTERS}
  160.     OldCanCalibrateProcPtr = FUNCTION(displayID: AVIDType): BOOLEAN;
  161. {$ELSEC}
  162.     OldCanCalibrateProcPtr = ProcPtr;
  163. {$ENDC}
  164.  
  165. {$IFC TYPED_FUNCTION_POINTERS}
  166.     OldCalibrateProcPtr = FUNCTION(VAR theInfo: OldCalibratorInfo): OSErr;
  167. {$ELSEC}
  168.     OldCalibrateProcPtr = ProcPtr;
  169. {$ENDC}
  170.  
  171.     OldCanCalibrateUPP = UniversalProcPtr;
  172.     OldCalibrateUPP = UniversalProcPtr;
  173.  
  174. CONST
  175.     uppOldCanCalibrateProcInfo = $000000D0;
  176.     uppOldCalibrateProcInfo = $000000E0;
  177.  
  178. FUNCTION NewOldCanCalibrateUPP(userRoutine: OldCanCalibrateProcPtr): OldCanCalibrateUPP; { old name was NewOldCanCalibrateProc }
  179.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  180.     INLINE $2E9F;
  181.     {$ENDC}
  182.  
  183. FUNCTION NewOldCalibrateUPP(userRoutine: OldCalibrateProcPtr): OldCalibrateUPP; { old name was NewOldCalibrateProc }
  184.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  185.     INLINE $2E9F;
  186.     {$ENDC}
  187.  
  188. PROCEDURE DisposeOldCanCalibrateUPP(userUPP: OldCanCalibrateUPP);
  189.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  190.     INLINE $594F;
  191.     {$ENDC}
  192.  
  193. PROCEDURE DisposeOldCalibrateUPP(userUPP: OldCalibrateUPP);
  194.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  195.     INLINE $594F;
  196.     {$ENDC}
  197.  
  198. FUNCTION InvokeOldCanCalibrateUPP(displayID: AVIDType; userRoutine: OldCanCalibrateUPP): BOOLEAN; { old name was CallOldCanCalibrateProc }
  199.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  200.     INLINE $205F, $4E90;
  201.     {$ENDC}
  202.  
  203. FUNCTION InvokeOldCalibrateUPP(VAR theInfo: OldCalibratorInfo; userRoutine: OldCalibrateUPP): OSErr; { old name was CallOldCalibrateProc }
  204.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  205.     INLINE $205F, $4E90;
  206.     {$ENDC}
  207. {$ENDC}  {OLDROUTINENAMES}
  208.  
  209. {$ALIGN RESET}
  210. {$POP}
  211.  
  212. {$SETC UsingIncludes := CMCalibratorIncludes}
  213.  
  214. {$ENDC} {__CMCALIBRATOR__}
  215.  
  216. {$IFC NOT UsingIncludes}
  217.  END.
  218. {$ENDC}
  219.